Listin Gambas2
Création d'un programme en Gambas2 : un répertoire téléphonique pas à pas
Origine : http://listingambas.blogspot.com/2011/06/definir-el-gridview-gridviewdatos.html
Définir le grille de données : GridViewDonnees
Pour cela, nous devons d'abord définir le nombre de colonnes, leur largeur, la police de caractères, etc.
Dans le module titre nous allons créer une procédure appelée definir avec le code suivant :
PUBLIC SUB definir()
WITH
FMain.GridViewDonnees
.header = 3
.Rows.COUNT = 1
.columns.COUNT = 16
.Columns[0].title = "Photo"
.Columns[1].title = "Nom"
.Columns[2].title = "Prénoms"
.Columns[3].title = "n°SS"
.Columns[4].title = "Entreprise"
.Columns[5].title = "Poste"
.Columns[6].title = "Tel. Entreprise"
.Columns[7].title = "Mobile Entreprise"
.Columns[8].title = "Tel. Personnel"
.Columns[9].title = "Mobile Personnel"
.Columns[10].title = "Fax"
.Columns[11].title = "Mail"
.Columns[12].title = "Page Web"
.Columns[13].title = "Adresse"
.Columns[14].title = "Commentaires"
.Columns[15].title = "date"
.Columns[0].width = 74
.Columns[1].width = 80
.Columns[2].width = 131
.Columns[3].width = 80
.Columns[4].width = 80
.Columns[5].width = 113
.Columns[6].width = 87
.Columns[7].width = 95
.Columns[8].width = 90
.Columns[9].width = 98
.Columns[10].width = 80
.Columns[11].width = 80
.Columns[12].width = 80
.Columns[13].width = 80
.Columns[14].width = 165
.Columns[15].width = 81
.font.name = "Sans"
.font.size = 9
.Background = 16777215
.Foreground = 0
END WITH
END
Et on ajoute dans la procédure Open du formulaire l'appel à cette subroutine :
PUBLIC SUB
Form_Open()
ME.CENTER()
var.initialise()
titre.definir()
END
Remarque : ME.CENTER-provoque le centrage du
formulaire à l'écran.